Voorbeeld van de instructie Property Set

Dit voorbeeld maakt gebruik van de instructie Property Set om een eigenschapprocedure te definiδren waarmee u een verwijzing naar een object instelt.

' The Pen property may be set to different Pen implementations.
Property Set Pen(P As Object)
    Set CurrentPen = P    ' Assign Pen to object.
End Property